home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / pshdr.zip / PSHEADER.PS next >
Text File  |  1993-01-19  |  12KB  |  318 lines
  1. %!PS-Adobe-2.0 ExitServer
  2. %%BeginExitServer: 0
  3.  userdict /msinifile known 
  4.  {msinifile (POSTSCRP) eq {stop} if} if
  5.  serverdict begin 0 exitserver
  6.  userdict /msorigstate known {msorigstate restore} if
  7.  save /msorigstate exch def
  8.  /msinifile (POSTSCRP) def
  9. %%EndExitServer
  10.  
  11. %%BeginFont: mslinedraw
  12. /mslinedraw 25 dict def
  13. /PSl {msdict begin /ptop 612 def /sw 0 def
  14.  /ftsz 12 def /smode 0 def /STh -3.6 def /fs 0 def /offset 0 def fonttable 1 get fontset E 90 rotate 0 -612 translate save statusdict begin /waittimeout 360 def end} def
  15. /PSp {msdict begin /ptop 792 def /sw 0 def
  16.  /ftsz 12 def /smode 0 def /STh -3.6 def /fs 0 def /offset 0 def fonttable 1 get fontset E save statusdict begin /waittimeout 360 def end} def
  17. mslinedraw begin
  18. /FontType 3 def
  19. /FontMatrix [1.0 30.0 div 0 0 1.0 30.0 div 0 0] def
  20. /FontBBox [0 -8 18 30] def
  21. /Encoding 256 array def
  22. 0 1 255 {Encoding exch /.notdef put} for
  23. Encoding 45 [
  24.  /sp   /sh   /sh /light /med /dark
  25.  /sv   /srj  /sdjr /dsjr /sdtr /dstr /djr  /dv
  26.  /dtr  /dbr  /sdbr /dsbr /str  /sbl  /sjb  /sjt
  27.  /sjl  /sh   /sjc  /sdjl /dsjl /dbl  /dtl  /djb
  28.  /djt  /djl  /dh   /djc  /dsjb /sdjb /dsjt /sdjt
  29.  /sdbl /dsbl /dstl /sdtl  /sdjc /dsjc /sbr  /stl
  30.  /black /bb /bl /br /bt] putinterval
  31.  
  32. /a {moveto lineto stroke} bind def
  33. /b {moveto lineto lineto stroke} bind def
  34. /c {moveto 9 7 lineto stroke} bind def
  35. /d {moveto lineto lineto} bind def
  36. /e {lineto closepath fill} bind def
  37. /f {7 30 7 9 0 9 b} def
  38. /g {12 30 12 9 18 9 b} def
  39. /h {7 -8 7 5 0 5 b} def
  40. /i {12 -8 12 5 18 5 b} def
  41. /j {0 7 18 7 a} def
  42. /k {9 22 9 -8 a} def
  43. /l {0 5 18 5 a 0 9 18 9 a} def
  44. /m {7 22 7 -8 a 12 22 12 -8 a} def
  45. /n {0 -8 18 -8 18 22 d 0 22 e} def
  46.  
  47. /CharProcs 55 dict def
  48. CharProcs begin
  49. /.notdef {} def
  50. /sp { 1 1 moveto } def
  51. /sv {k} def
  52. /srj {k 0 7 c} def
  53. /sdjr {k 0 5 9 5 a 0 9 9 9 a} def
  54. /dsjr {m 0 7 7 7 a} def
  55. /sdtr {0 7 12 7 12 -8 b 7 7 7 -8 a} def
  56. /dstr {0 9 9 9 9 -8 b 0 5 9 5 a} def
  57. /djr {f h 12 -8 12 22 a} def
  58. /dv {m} def
  59. /dtr {h 0 9 12 9 12 -8 b} def
  60. /dbr {f  0 5 12 5 12 30 b} def
  61. /sdbr {0 7 12 7 12 30 b 7 7 7 30 a} def
  62. /dsbr {0 5 9 5 9 30 b 0 9 9 9 a} def
  63. /str {0 7 9 7 9 -8 b} def
  64. /sbl {9 30 9 7 18 7 b} def
  65. /sjb {j 9 30 c} def
  66. /sjt {j 9 -8 c} def
  67. /sjl {k 18 7 c} def
  68. /sh {j} def
  69. /sjc {j k} def
  70. /sdjl {k 9 9 18 9 a 9 5 18 5 a} def
  71. /dsjl {m 12 7 18 7 a} def
  72. /dbl {g 7 30 7 5 18 5 b} def
  73. /dtl {i 7 -8 7 9 18 9 b} def
  74. /djb {f g 0 5 18 5 a} def
  75. /djt {h i 0 9 18 9 a} def
  76. /djl {g i 7 -8 7 22 a} def
  77. /dh {l} def
  78. /djc {f g h i} def
  79. /dsjb {l 9 30 9 9 a} def
  80. /sdjb {j 7 7 7 30 a 12 7 12 30 a} def
  81. /dsjt {l 9 -8 9 5 a} def
  82. /sdjt {j 7 7 7 -8 a 12 7 12 -8 a} def
  83. /sdbl {7 30 7 7 18 7 b 12 30 12 7 a} def
  84. /dsbl {9 30 9 5 18 5 b 9 9 18 9 a} def
  85. /dstl {9 -8 9 9 18 9 b 9 5 18 5 a} def
  86. /sdtl {7 -8 7 7 18 7 b 12 -8 12 7 a} def
  87. /sdjc {m j} def
  88. /dsjc {l k} def
  89. /sbr {0 7 9 7 9 30 b} def
  90. /stl {9 -8 9 7 18 7 b} def
  91. /light {0.90 setgray n} def
  92. /med {0.60 setgray n} def
  93. /dark {0.30 setgray n} def
  94. /black {n} def
  95. /bt {0 7 18 7 18 22 d 0 22 e} def
  96. /bb {0 -8 18 -8 18 7 d 0 7 e} def
  97. /bl {0 -8 9 -8 9 22 d 0 22 e} def
  98. /br {9 -8 18 -8 18 22 d 9 22 e} def
  99. end %CharProcs
  100.  
  101. /BuildChar
  102.   { fs 1 and 0 eq {1} {3} ifelse setlinewidth
  103.     18 0 setcharwidth
  104.     exch begin
  105.      Encoding exch get
  106.      CharProcs exch get
  107.      exec
  108.     end
  109.   } def
  110. end %mslinedraw
  111. %%EndFont
  112.  
  113. %%BeginProcSet: msdict 1.0 0
  114. /msdict 100 dict def
  115. FontDirectory /LineDraw known not
  116.  {/LineDraw mslinedraw definefont pop} if
  117. msdict begin
  118. /SLL {/LL def} def
  119. /P {exch msu exch msu neg ptop add moveto} bind def
  120. /S {sw 0 32 4 -1 roll widthshow} bind def
  121. /C {1 string dup 0 4 -1 roll put S} bind def
  122. /J {msu ( ) stringwidth pop sub /sw exch def} bind def
  123. /PE {showpage ptop exch restore save exch /ptop exch def} bind def
  124. /SFL {msu /ptop exch def} bind def
  125. %%BeginModelCheck
  126.  statusdict begin
  127.  product (OmniLaser) eq
  128. {
  129. end
  130. /B1 {statusdict begin 0 setpapertray end} def
  131. /B2 {statusdict begin 1 setpapertray end} def
  132. }{
  133. end
  134. /B1 {statusdict begin 1 setpapertray end} def
  135. /B2 {statusdict begin 2 setpapertray end} def
  136. } ifelse
  137. %%EndModelCheck
  138. /MB {statusdict begin /manualfeed true store end} def
  139. /ME {statusdict begin /manualfeed false store end} def
  140. /B {fs 2 and 0 eq {Bft} {BIft} ifelse
  141.  ftsz scalefont setfont fs 1 or /fs exch def} bind def
  142. /E {Eft ftsz scalefont setfont /fs 0 def} bind def
  143. /I {fs 1 and 0 eq {Ift} {BIft} ifelse
  144.  ftsz scalefont setfont fs 2 or /fs exch def} bind def
  145. /BI {BIft ftsz scalefont setfont fs 
  146.  2 or 1 or /fs exch def} bind def
  147. /LU {currentpoint /uy exch def /ux exch def 1 ssm} bind def
  148. /LD {currentpoint /uy exch def /ux exch def 2 ssm} bind def
  149. /LS {currentpoint /uy exch def /ux exch def 4 ssm} bind def
  150. /LL {currentpoint /uy exch def /ux exch def /ldmode exch def 8 ssm} bind def
  151. /LE {smode 1 and 0 ne {false (_) ul} if
  152.       smode 2 and 0 ne {true (_) ul} if
  153.       smode 4 and 0 ne {false (\352) ul} if
  154.       smode 8 and 0 ne {ux uy ldot pop pop} if
  155.   not smode and /smode exch def} bind def
  156. /BD {STh ssc} def
  157. /BU {STh neg ssc} def
  158. /BN {0 ssy neg rmoveto} def
  159. /F {/ftsz exch def (-) stringwidth pop 2 div neg /STh exch def
  160.  /ftcd exch def 
  161.  0 2 fonttable length 1 sub
  162.    {dup fonttable exch get ftcd eq
  163.      {1 add fonttable exch get fontset exit}{pop}ifelse
  164.    }for
  165.  E} bind def
  166. /msfindfont {dup FontDirectory exch known not {pop /Courier} if findfont} def
  167. /fontset {dup 0 get msfindfont /Eft exch def
  168.           dup 1 get msfindfont /Bft exch def
  169.           dup 2 get msfindfont /Ift exch def
  170.           3 get msfindfont /BIft exch def
  171.          }def
  172. /msu {20 div} def
  173. /ssc {dup /ssy exch def 0 exch rmoveto} bind def
  174. /ssm {dup smode or /smode exch def} bind def
  175. /Cf {/Eft /Courier  findfont def /Bft /Courier-Bold findfont def /Ift /Courier-Oblique findfont def /BIft /Courier-BoldOblique findfont def} def
  176. /DUL {cc true charpath pathbbox newpath exch pop 2 index 2 index moveto cx1 4 -1 roll sub dup 0 rlineto 3 1 roll exch
  177. sub 0 exch rlineto neg 0 rlineto closepath fill} bind def
  178. /ul {gsave /cc exch def currentpoint pop /cx1 exch def ux uy moveto DUL {grestore gsave ux uy 2.4 sub moveto DUL} if
  179. grestore} bind def
  180. /PSe {restore end currentfile closefile} bind def
  181. /ldot {gsave 2 copy currentpoint /y exch def /x exch def
  182.  newpath
  183.  ldmode 0 eq {/offset 0 def 1 setlinewidth [1 7] 4 setdash}
  184.  {ldmode 1 eq {[6 2] 6 setdash /offset STh def .2 setlinewidth}
  185.  {ldmode 2 eq {[] 0 setdash /offset 1.4 def .2 setlinewidth} if}
  186.  ifelse} ifelse
  187.  offset sub moveto x y offset sub lineto stroke grestore} bind def
  188. /Ccs /Courier findfont /CharStrings get def
  189.  
  190. % /OrigName /NewName vector ReEncodeSmall
  191. /ReEncodeSmall { %def
  192.   exch findfont begin
  193.   currentdict dup length dict begin
  194.     { 1 index /FID ne {def} {pop pop} ifelse } forall
  195.     /FontName exch def
  196.     /Encoding foreignvec def
  197.   currentdict dup end end
  198.   /FontName get exch definefont pop
  199. } bind def
  200. /Foreign { ReEncodeSmall } def
  201.  
  202. /foreignvec StandardEncoding 256 array copy def
  203. % the following are differences from StandardEncoding.
  204. % Sequential entries do not require indices:
  205. 0 [ 39/quotesingle 96/grave
  206. 128/Ccedilla/udieresis/eacute/acircumflex/adieresis
  207. /agrave/aring/ccedilla/ecircumflex/edieresis
  208. /egrave/idieresis/icircumflex/igrave/Adieresis
  209. /Aring/Eacute/ae/AE/ocircumflex
  210. /odieresis/ograve/ucircumflex/ugrave/ydieresis
  211. /Odieresis/Udieresis/cent/sterling/yen/P/florin/aacute
  212. /iacute/oacute/uacute/ntilde/Ntilde/ordfeminine
  213. /ordmasculine/questiondown/.notdef/.notdef
  214. /.notdef/.notdef/exclamdown/guillemotleft/guillemotright
  215. /Aacute/Acircumflex/Agrave/Atilde/Ecircumflex/Edieresis
  216. /Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute
  217. /Ocircumflex/Ograve/Otilde/Uacute/Ucircumflex/Ugrave
  218. /Scaron/Ydieresis/emdash/Zcaron/.notdef/otilde/scaron/zcaron
  219. /fraction/section/currency/quotesingle/quotedblleft
  220. /guilsinglleft/guilsinglright/.notdef/.notdef/endash/dagger/daggerdbl
  221. /paragraph/quotesinglbase/quotedblbase/quotedblright
  222. /ellipsis/.notdef/grave/acute/circumflex/tilde/macron
  223. /germandbls/breve/dotaccent/dieresis/cedilla/.notdef/hungarumlaut
  224. /ogonek/caron/emdash/Lslash/Oslash/dotlessi/lslash/oslash
  225. /.notdef/.notdef/.notdef/.notdef/.notdef/atilde
  226. /.notdef/.notdef/ring/bullet/periodcentered/.notdef/.notdef
  227. /.notdef/.notdef/.notdef
  228. ] { %forall
  229.   dup type /nametype eq { %ifelse
  230.     dup Ccs exch known not {pop /.notdef} if
  231.     foreignvec 2 index 2 index put
  232.     pop 1 add
  233.   }{ exch pop } ifelse
  234. } forall pop
  235.  
  236. %BeginMakeForeign
  237. /Courier /Courier-F Foreign
  238. /Courier-Bold /Courier-Bold-F Foreign
  239. /Courier-Oblique /Courier-Oblique-F Foreign
  240. /Courier-BoldOblique /Courier-BoldOblique-F Foreign
  241. /Helvetica /Helvetica-F Foreign
  242. /Helvetica-Bold /Helvetica-Bold-F Foreign
  243. /Helvetica-Oblique /Helvetica-Oblique-F Foreign
  244. /Helvetica-BoldOblique /Helvetica-BoldOblique-F Foreign
  245. /AvantGarde-Book /AvantGarde-Book-F Foreign
  246. /AvantGarde-Demi /AvantGarde-Demi-F Foreign
  247. /AvantGarde-BookOblique /AvantGarde-BookOblique-F Foreign
  248. /AvantGarde-DemiOblique /AvantGarde-DemiOblique-F Foreign
  249. FontDirectory /Helvetica-Condensed known
  250. {
  251. /Helvetica-Condensed /Helvetica-Narrow-F Foreign
  252. /Helvetica-Condensed-Bold /Helvetica-Narrow-Bold-F Foreign
  253. /Helvetica-Condensed-Oblique /Helvetica-Narrow-Oblique-F Foreign
  254. /Helvetica-Condensed-BoldObl /Helvetica-Narrow-BoldOblique-F Foreign
  255. }{
  256. /Helvetica-Narrow /Helvetica-Narrow-F Foreign
  257. /Helvetica-Narrow-Bold /Helvetica-Narrow-Bold-F Foreign
  258. /Helvetica-Narrow-Oblique /Helvetica-Narrow-Oblique-F Foreign
  259. /Helvetica-Narrow-BoldOblique /Helvetica-Narrow-BoldOblique-F Foreign
  260. } ifelse
  261. /Bookman-Light /Bookman-Light-F Foreign
  262. /Bookman-Demi /Bookman-Demi-F Foreign
  263. /Bookman-LightItalic /Bookman-LightItalic-F Foreign
  264. /Bookman-DemiItalic /Bookman-DemiItalic-F Foreign
  265. /Times-Roman /Times-Roman-F Foreign
  266. /Times-Bold /Times-Bold-F Foreign
  267. /Times-Italic /Times-Italic-F Foreign
  268. /Times-BoldItalic /Times-BoldItalic-F Foreign
  269. /NewCenturySchlbk-Roman /NewCenturySchlbk-Roman-F Foreign
  270. /NewCenturySchlbk-Bold /NewCenturySchlbk-Bold-F Foreign
  271. /NewCenturySchlbk-Italic /NewCenturySchlbk-Italic-F Foreign
  272. /NewCenturySchlbk-BoldItalic /NewCenturySchlbk-BoldItalic-F Foreign
  273. /Palatino-Roman /Palatino-Roman-F Foreign
  274. /Palatino-Bold /Palatino-Bold-F Foreign
  275. /Palatino-Italic /Palatino-Italic-F Foreign
  276. /Palatino-BoldItalic /Palatino-BoldItalic-F Foreign
  277. /ZapfChancery-MediumItalic /ZapfChancery-MediumItalic-F Foreign
  278. %EndMakeForeign
  279.  
  280. /fonttable
  281.  [0 [/Courier-F /Courier-Bold-F /Courier-Oblique-F /Courier-BoldOblique-F]
  282.  8 [/Helvetica-F /Helvetica-Bold-F /Helvetica-Oblique-F /Helvetica-BoldOblique-F]
  283.  9 [/AvantGarde-Book-F /AvantGarde-Demi-F /AvantGarde-BookOblique-F /AvantGarde-DemiOblique-F]
  284.  10 [/Helvetica-Narrow-F /Helvetica-Narrow-Bold-F /Helvetica-Narrow-Oblique-F /Helvetica-Narrow-BoldOblique-F]
  285.  16 [/Bookman-Light-F /Bookman-Demi-F /Bookman-LightItalic-F /Bookman-DemiItalic-F]
  286.  24 [/Times-Roman-F /Times-Bold-F /Times-Italic-F /Times-BoldItalic-F]
  287.  25 [/NewCenturySchlbk-Roman-F /NewCenturySchlbk-Bold-F /NewCenturySchlbk-Italic-F /NewCenturySchlbk-BoldItalic-F]
  288.  26 [/Palatino-Roman-F /Palatino-Bold-F /Palatino-Italic-F /Palatino-BoldItalic-F]
  289.  50 [/ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F /ZapfChancery-MediumItalic-F]
  290.  56 [/Symbol /Symbol /Symbol /Symbol]
  291.  57 [/LineDraw /LineDraw /LineDraw /LineDraw]
  292.  60 [/ZapfDingbats /ZapfDingbats /ZapfDingbats 
  293. /ZapfDingbats] 
  294. ] def
  295.  
  296. %BeginGraphicsDefs
  297. /M {moveto}  def
  298. /L {lineto} def
  299. /LH {currentpoint exch pop lineto} def
  300. /LV {currentpoint pop exch lineto} def
  301. /R {3 index 1 index 1 index 5 index 5 index 1 index M L L L closepath pop pop} def
  302. /setpat {setscreen 100 div setgray} def
  303. /setgrayed {{dup mul exch dup mul add 1 exch sub} setpat} def
  304. /setbar {{pop} setpat} def
  305. /setcross {{2 copy gt {pop} {exch pop} ifelse} setpat} def
  306. /fi {1 -1 scale} def
  307. /II1 {save count /mscount exch def} def
  308. /II2 {userdict begin /showpage {} def /letter {} def
  309.   /legal {} def /a4 {} def /b5 {} def
  310.   /clear { {cleartomark count msdict /mscount get eq {exit} if} loop mark} def
  311.    mark} def
  312. /IT {pop restore} def
  313. /IX {exch msu exch msu neg ptop add translate} def
  314. /IS {div 3 1 roll div exch scale} def
  315.  
  316. save /msdictstate exch def
  317. 
  318.